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MODULE REWSPC te (BL1S832) , 
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iw COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED 
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FACILITY: MTAACP 
{ ABSTRACT: 
This module rewinds a file and spaces within a file 
ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


! AUTHOR: D. H. GILLESPIE, CREATION DATE: 6-AUG-1977 
i MODIFIED BY: 
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: v03-003 Rowoess Raloh 0. Weber 21-NOV-1983 

: e Paul Painter Memorial Enhancement 

! Named = oes of the unfortunate customers who suffered mee 
! to determine the greet UCBSL_MT_RECORD rhs ch while tr ing to 

; sreate o usernye' ten magtapg oF iver : change eliminates 
i use 0 e de vice dependent field test T_RECORD in favor of 
the oh ~~ ndependent field, uCBSL_R SRD 
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' Add modifier I0$M 

} necessary for the MSCP tape drives. 
i] 
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LIBRARY ‘SYSSLIBRARY:LIB.L32'; 


REQUIRE "SRCS$:MTADEF .832'; 


FORWARD we 
REWIND FILE 
SPACE_IN_ FILE 
SETUP_AT_ END 
SETUP- END 
UPD_ST_RECORD 

EXTERNAL noyt Me 
CLOSE FILE 


D 
GTNEXT~VOL_READ 
MOUNT_JOL 
POSITION BY_FID 
RESTORE_ACCESS 
SPACE 
SPACE Te 


: ¢ 
: COMMON-CALL NOVALUE; 


: LSCLOSE FILE, 
COMMON 


CALL, 


: NOVALUE JSB, 
: COMMON_CALL, 


COMMON_CALL, 


SYS$QTOW 
EXTERNAL 
CURRENT_UCB : REF BBLOCK, 
CURRENT_WCB : REF BBLOCK, 
HOR1 : REF BBLOCK, 
HDR2 : REF BBLOCK, 
LOCAL FIB : BBLOCK, 
O_CHANNEL, 

18- STATUS : VECTOR £32. 
USER_STATUS : VECTOR ; 


MPL RSEREXEP to 


382 9 48:09 
As TTS i 
to the symbo 


3-Jan-1983 
all Q10's 


: COMMON CALL 
: ADDRESSING “MODE (ABSOLUTE 


AxX-11 Blis 
MTAACP’ SR ROIR 


8:48 

ANSI_LBLSZ 

16:13 
issued by the MTAACP, 


30-Jun-1980 


main control for rewind file 
space within a file 

setup at end of file after checking position 
setup at end 

update start record in current file section 


close file 

format file ID in current VCB 
get next volume on read 

mount Sel attye volume 

position y At. 

read data rack 

restore original access to file 
space blocks 

prove tape marks 


address of curre 
address of curre 
( 
f 


mrs Cc 


cB 
indew control block 
)» Label 


address of HDR1 
address of HDR2 
copy of user's 


10 statu 
Status roturaed to user 
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GLOBAL ROUTINE REWIND_FILE : COMMON_CALL NOVALUE = 


<£ 
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54 AX-11 Bliss-32 oa et od 
49 MTAACP.SRCJREWSPC .B32; 
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' 
i FUNCTIONAL DESCRIPTION: 
This routine rewinds to the hate of the current file. if 
ume, that volume is mounted and 


FELLELE 


wooono 


the beginning is on another vo 
pos] stenes to the beginning of the files data area. Once at the 
eginning the access to the file is reset to the original 


FUN" OOONOM 


requested access. 


: if file is not accessed give error 


i CURRENT UCB EQL 0 
ERR_EXIT(SS$_FILNOTACC); 
! if writing, then close out file 


000 
; 103 1 
3 «YY 1 
: 108 
; 199 1 
; 108 1} 
> 109 1! 
; 110 04 a 
36111 4 . 7 
; 136 4 1! 
s; 11 495 1! 
3; (114 £36 1 ! CALLING SEQUENCE: 
3 95 497 1! REWIND_FILE() 
: 139 rh 1! 
; 1 499 1 ! INPUT PARAMETERS: 
: «(118 0500 1! none 
3 (119 6203 ;} 
: 169 206 1 ! IMPLICIT INPUTS: 
s Yer 0505 1! CURRENT_VCB = address of current volume control block 
; \$¢ Bebe : CURRENT_WCB - address of current window control block 
; 124 8208 1 ! OUTPUT PARAMETERS: 
s 329 0507 1! none 
; 126 0508 1! 
s Yer 0509 1! IMPLICIT OUTPUTS: 
; 128 0510 1! none 
3 (ley 0511 1! 
: 130 dalg 1 ! ROUTINE VALUE: 
3: 131 05135 1! none 
; 136 Sate 1! 
, 3 515 1 ! SIDE EFFECTS: 
3; «(134 0516 1! file positioned to beginning 
: 135 QOS17 1! original access restore 
3; «4136 3218 1! 
; 13 519 1 ! USER ERRORS: 
; 138 0520 1! SS$_FILNOTACC = file not accessed 
3; 139 B25) 1 !-- 
3; 140 05 § 1 
3 (141 05 BEGIN 
; oe 0524 
3; (14 0525 EXTERNAL REGISTER 
3. «6144 05 $ COMMON_REG; 
t 488 03 LOCAL 
; 149 5 § FID, ! file identification 
: 148 530 SEQ, ! file section sequence number 
3 «6149 531 TA, ! tape marks 
3s 150 236 VOL; ! relative volume number 
3 151 5 
; 136 534 
3 3 535 
3: 6154 5 § 
; 132 3 
3 135 5 
; 158 05 
3; «6159 05 
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number of tape marks into current file section 

T™ = .CURRENT_VCBCVCB$B_TM]; 

eh EQL 0 AND’ .HDRICHDISL_HD1ILID] NEQ ‘HDR1' 
™ = 3; 

IF .TM GEQ 1 

THEN 


4 : 

st 2g 
66 a IF NOT .CURRENT_WCBCWCBSV_READ] 
rt: rk] CLOSE_FILE(); 
08 calculate which relative volume the beginning is on 

8 SEQ = .CURRENT_VCBLVCBS$W_CUR_SEQ]; ! file section number 
Y IF .SEQ EQL 1 

§ BEGIN ! currently in first file section 
¢ IF _.CURRENT_VCBCVCB$V_LOGICEOVS] 

6 SPACE_TM(-4) ! write case 

7 ELSE 

BEGIN ! read case 

0 

4 

5 

6 

7 

8 


Oo 


backspace to tape mark preceding start of data 
SPACE_TM(-.TM); 


oooono 


END; 
7 ts | ™™(1); ! pass over TM 
bs HDRICADISL_HD1LIDJ = ‘HDR1'; 
4 IF HDR2CHD2$L_HD2LID) NEQ 0 
4 HDR2CHD2$L_HD2LID] = ‘HDR2'; 
04 END 
05 ELSE 
BEGIN 
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current file number and section 
FID = .CURRENT_ VCBCVCBSL_CUR_FID); 
FID<16, 16> = 7; 

VOL = .CURRENT_VCBCVCB$B_CUR_RVN]; 
VOL = .VOL =. + 1; 
POSITION_BY_FID(.FID, .VOL); 

IF .CURRENT_VCBLVCBS$B_TM] EQL 0 


want section one 

current volume 

calculate volume wanted 
position to file section 
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1b-se =1984 02:31:54 AX-11 Bliss-32 V4.0-742 Page 5 
000 12-808-1 382 95:22:26 MTAACP. SRCIREWSPC.B32:1 9 025 
: 217 599 HEN : 
: 18 690 SPACE_TM(1); ; 
; : £03 END; : 
: 604 KERNEL_CALL(RESTORE_ACCESS); ! restore original access to the file ; 
3 $58 0605 END; ~ 2 ° : 
.TITLE REWSPC : 
IDENT \V04-000\ : 
EXTRN CLOSE FILE, FORMAT_FID : 
-EXTRN GTNE EXT_VOL_READ ; 
EXTR nOUNT vot “POSITION_BY_FID : 
EXTRN D BLOC , RESTORE_ACTESS : 
~EXTRN OEACE ACE ™ 3 
*EXTRN SySsofou, CURRENT _UCB F 
EXTRN CURRENT WCB, HDR1~ ; 
“EXTRN HDR2, LOCAL ‘18 ; 
“EXTRN 10_C CHANNEL TATUS : 
"EXTRN USER STATUS, SYSSCHKRNL : 
.PSECT $CODE$,NOWRT,2 : 
040¢ 00000 .ENTRY REWIND_FILE, Save R2,R3,R10 + 0485 r 
53 00006 CF 9 00002 MOVAB SPACE_TM, R3 : ; 
00006 CF D5 00007 TSTL  CURRERT_WCB + 0537 ; 
04 12 00008 BNEQ § : ; 
OOAC 8F BF 0000D CHMU 172 + 0539 ; 
50 00006 CF DO 00011 1$ MOVL § CURRENT_WCB, RO + 0544 F 
03 0B AO ES 00016 BLBS 11(R 0) re: : ; 
00006 30 0001A BSBW CLOSE LE : 0546 ; 
52 26 AB 3C 0001D 2$ MOVZWL 38(C ORRENT _VCB), SEQ : 0550 ; 
01 52 D1 99021 CMPL SEQ, : 0552 ; 
46 12 00024 BNEQ 7$ : : 
05 0B AB 01 £1 00026 BBC i, 11(CURRENT_VCB), 3$ : 0556 : 
7E 04 CE 90028 MNEGL #4, -(SP) : 0558 ; 
1B 11 O0¢E BRB : ; 
50 2E AB 9A 00030 3$ MOVZBL 46(CURRENT_VCB), TM : 0564 : 
O£ 12 00034 BNEQ 4 : 0566 ; 
315246448 8F 00006 DF D1 00 6 CMPL §@HDR1, #827475016 : : 
03 13 0003F BEQL 4 : ; 
50 93 D 004) MOVL #3, TM : 0568 : 
D5 00044 4$ TSTL 36s : 0570 : 
06 1 0046 BLEG 6 : : 
7 CE 004 MNEGL 1M, -(SP) > 0575 : 
6 01 FB 00048 5$: CALLS a, SPACE_TM : 
1 OD 004 é$: PUSHL : 0579 
63 . 99 CALLS i sis! ; 
0000G DF 31524448 8F DO 00 MOVL grins 18, MaHDRI : 0580 
50 00006 CF DO 0005¢ MOVL : 0582 
1 1 61 BEQL yy ; 
60 32524448 f p 63 MOVL Sapient: (RO) : 0385 
51 24 AB 00 0006C 7$ MOVL 36 (CURRENT VCB) : 38 
51 10 10 01 p8 096 INSV #16, #716, bio’ : 059 
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REWSPC 16-Sep-1984 31:54 AX-11 Bliss-32 V4.0-742 Page 
yO42000 ene e= ieee $3icor49 — EAtaAcP sae Seasbe 3504 ° 
50 2F AB 9A 00075 WOVZBL 47(CURRENT_VCB), VOL F 

52 50 5 ¢3 9079 SUBL3. SEQ, VOL ; 

50 01 A2 9E 00070 MOVAB 1(R2), VOL F 

50 0D 00081 PUSHL VOL : 

51 DD 00083 PUSHL FID ; 

00006 CF 02 EB 0085 CALLS #2, POSITION_BY_FID : 

2E AB 95 OO08A TSTB. © 46 (CURRENT_VCB) : 

05 12 0008 BNEQ 8$ : 

01 DD 0008F PUSHL #1 ; 

63 ON FB 00091 CALLS #1, SPACE_TM : 

E D4 00094 8$: CLRL 0s = (§P) : 

SE BD 096 PUSHL SP : 

00006 CF 9F 0009 PUSHAB RESTORE ACCESS : 

000000006 9F 03 Fe 909¢ CALLS #3, a#SYSSCMKRNL : 


; Routine Size: 164 bytes, Routine Base: S$CODE$S + 0000 
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i FUNCTIONAL DESCRIPTION: 
4 Setup at end of file 


i CALLING SEQUENCE: 
SETUP_END(ARG1) 


i INPUT PARAMETERS: 
i ARG 


s 
MTAACP.SRCIREWSPC .B3 


1 = number of tape marks to be spaced and direction 


i IMPLICIT INPUTS: 
CURRENT_UCB = address of current unit control block 
HDR1 = address of ‘HDR1' and ‘EOF1' Label 
i OUTPUT PARAMETERS: 
none 
i IMPLICIT OUTPUTS: 
i CURRENT _VCBCVCBSL_ST_RECORD] 
i ROUTINE VALUE: 
none 


' SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON _REG; 
EXTERNAL ROUTINE 
LIBSCVT_DTB : ADDRESSING_MODE (ABSOLUTE); 


LOCAL 
BLOCK; 


SPACE_TM(.1M); ! space to end of file, right before end date TM 


: setup as if trailers had not been read 

HDRICHDISL_HDILIDJ = ‘HDR1'; 

1F HDR2CHD2$L_HD2LID] NEQ 0 
HDR2CHD2$L_HD2LID] = ‘HDR2'; 


IF NOT LIBSCVT_DTB(EO1$S_BLOCKCNT, HDR1CEO1$T_BLOCKCNTJ, BLOCK) 


ERR_EXIT(SS$_BLOCKCNTERR) ; 
BLOCK = .CURRENT_UCBCUCBSL_RECORD) - .BLOCK; 


i 


dees f 


EEL CALL CUPD ST RECORD, -BLOCK); 


-EXTRN 
0000 00000 SETUP_END: bons 
5E 04 C2 £008 SUBL 2 
04 AC DD 0000 PUSHL 
60006 CF gt F 44 CALLS 
0006 pF 3152444 .- 2 Dd MOVL 
0 0000G CF D 16 MOVL 
7 1 18 BEQL 
60 32524448 F OD 10 MOVL 
E DD 00024 1$ PUSH 
7E 0000G CF 6 3 8 . matty 
000000006 9F : Fe 00 3 CALLS 
04 0 £8 000 BLBS 
0940 F BF 00038 CHMU 
50 0000G CF 00 003C 2$ MOVL 
6E 0080 =c0 6— C3 00041 SUBL 
6E DD 00047 PUSHL 
01 DD 00049 PUSHL 
5E DD 00048 PUSHL 
0000v CF 9F 0004D PUSHAB 
00000000G 9F 04 FB 00051 CALLS 
04 00058 ET 


; Routine Size: 89 bytes, Routine Base: SCODES + O0A4 
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MTAACP.SRCJREWSPC.B32; 


LIBSCVT_DTB 


Save nothing 

#4, SP 

#1, SPACE_™ 

WBSTLPSOIB. @HDR1 

HDR2, RO 

agsseseese. (RO) 

re HDR1, =(SP) 
F afl IBSCVT_DTB 


RO, 
CURRENT 
BLOCK, Hee Ron? BLOCK 
BLOCK 


SP 
UPD_ST_RECORD 
#4, “SASTESCRIKRNL 
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-Sep-1 SPC. 3 
: $6 ] ROUTINE UPD_ST_RECORD (BLOCK) : COMMON_CALL NOVALUE = 
3 oe8 1 lee 
; «28 r¢ 1 i 
; 290 0 1 | FUNCTIONAL DESCRIPTION: 
: 291 71 1: This routine yotetes the stort record count in the volume control block 
3 38 ye : and sets the TM count to 1 because now positioned before end data 
; 294 674 1: oe ett td 
> 295 675 1: D_ST_RECORD(ARG1) 
3 38 ore 1 / ve ted” in kernel mode 
; 29 677 1: 
; 298 ors 1 | INPUT PARAMETERS: 
: 44 44 : ARG1 = new value of start record count 
3; 30 Oe 1 1°! IMPLICIT INPUTS: 
: Be 6 § 1 i CURRENT_VCB 
: 30 06 1 i 
; 304 pene 1 § OUTPUT nn 
; 305 0685 1! no 
; 306 0686 1} 
: 307 0687 1 ! IMPLICIT OUTPUTS 
; 308 0688 1! CURRENT “VCBLVCBSL_ ST_RECORD] = BLOCK 
; 309 0689 1! 
3 10 690 1 ! ROUTINE VALUE: 
$ 11 691 1: none 
3 \¢ 0692 1! 
3 1 0693 1 ! SIDE EFFECTS: 
: 14 694 1 none 
: 15 95 1 
3 16 0696 1 i- 
: 317 0697 1 
§ 18 0698 BEGIN 
: 19 8800 
: 320 700 EXTERNAL REGISTER 
; $5: 144 COMMON $ 
3 j ¢ 070 CURRENT_VCBCVCB$B_T 
3 : 4 0704 CURRENT_VCBCVCBSL_ “$F TRECORD) = BLOCK; 
3 5 0705 1 END; 


0000 00000 UPD, ST_RECORD: 


WORD zave noth ae 
2 AB 01 90 00002 MOVB cbceunR NT_VCB) 
0 AB 04 AC po 9006 MOVL BLOCK 48(CURRENT_VCB) 


; Routine Size: 12 bytes, Routine Base: S$CODE$ + OOFD 
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GLOBAL ROUTINE SPACE_IN.FILE : COMMON.CALL NOVALUE = 
lee 


i FUNCTIONAL DESCRIPTION: 
This routine spaces forwards and backwards within a file 


CALLING SEQUENCE: 
SPACE_IN_FILE( 


INPUT PARAMETERS: 
none 


i 
i 
i 
i 
i 
i 
i 
! IMPLICIT INPUTS: 
: CURRENT_VCB = address of current volume control block 
LOCAL_FIB = copy of user's file information block 
i QUTPUT PARAMETERS: 
none 
i IMPLICIT OUTPUTS: 
: none 
i ROUTINE VALUE: 
none 
i SIDE EFFECTS: 
none 
i USER ERRORS: 
! SS$_BEGOFFILE - bog inating of file 
: SSS_ENDOFFILE = end of file 
: SSS_FILNOTACC = file net accessed 
} SS$_BADPARAM = can not space forward if writing 
SS$_TAPEPOSLOST = tape position lost 
BEGIN 
EXTERNAL REGISTER 
COMMON 3 
STACKLOCAL 
BLOCKS; ' number of blocks to space 
LOCAL 
TM; ! number of tape marks into file section 


: file must be accessed 


IF .CURRENT_WCB EQL 0 
ERR_EXIT(SS$_FILNOTACC); 
BLOCKS = .LOCAL_FIBCFIBSL_CNTRLVAL); 
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IF .BLOCKS GTR 0 
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1b-se 1984 02:31:54 AX-11 Bliss-32 V4.0-74 
127880-1 984 13 i2b:a9 EATAACP. SRC REWSPC .B32; 


! sign determines direction to space 
BEGIN : beginning of forward space “ 
IF .BLOCKS<16, 16> NEQ 0 
THEN 
ERR_EXIT(SS$_BADPARAM) ; 
can not space forward if writing 


IF NOT .CURRENT_WCBCWCBSV_READJ 
ERR_EXIT(SS$_BADPARAM) ; 
position to data in current file section 


IF .CURRENT_VCBCVCB$B_TM] EQL 0 
«HDRICHDISL_HD1LID) EQL ‘HDR1' 
THEN 
SPACE_TM(1); 


IF .CURRENT_VCBCVCB$B_TM] NEQ 1 
THEN 


BEGIN 
IF .CURRENT_VCSCVCBSB_TM] EQL 2 
THEN 
™ = -1 
ELSE 
BEGIN 
IF _ .CURRENT_VCBCVCB$V_LOGICEOVS) 
THEN 
™ = -3 
ELSE 
T™ = 2; 
END; 


SPACE_TM(.1M); 
END; 
WHILE 1 
dO 
BEGIN ! forward space loop 
IF SPACE(.BLOCKS) 


EXITLOOP; 


USER STATUS<16, 16> = .USER STATUS<16, 16> + .IO_STATUS<16, 16> = 1; 
BLOCRS = .BLOCKS - .10_STATOS<16, 16> + 1; ! TM” counts 


IF NOT READ_BLOCK(.HOR1, ANSI_LBLSZ) 
THEN 


Se 


a 
-$ep-1984 :31 
1b-Sen-1984 02:31 
ERR_EXIT(SS$_TAPEPOSLOST); 
IF .HORICHDISL_HDILID] EQL ‘EOF1' 
THEN 


54 ee: Bliss-32 V4.0-74 
49 MTAACP.SRCJREWSPC .B32; 


GIN 
SETUP_END(=1) 
KERNEC_CALL(RESTORE_ACCESS); 
ERR_EXIT(SS$_ENDOFFILE); 


If _ .HDRICHDISL_HDILID] NEQ ‘EOV1" 
ERR_EXIT(SS$_TAPEPOSLOST); 
GTNEXT_VOL_READ(); ! get next volume in volume set 
If .CURRENT_VCBCVCB$B_TM) EQL 0 
SPACE_TM(1); 
END; 

a a ! end of forward space loop 
BEGIN ! begin of backspace 
~BLOCKS NEQ 0 

BLOCKS = -(.BLOCKS); 
IF .BLOCKS<15, 17> NEQ 0 
ERR_EXIT(SS$_BADPARAM) ; 
position to data if not there 
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A a » CURRENT_WCBCWCBSV_READ) 
CLOSE_FILE(); 
iv CURRENT _VCBLVCBSV_LOGICEOVS) 


SETUP_END(-3) 
ELS 


TM = .CURRENT_VCBCVCBSB_TM); 
aN EQL 0 AND .HDRICHDISL_HDILID] EQL ‘HDR1' 
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! read case 


Basar 
BENNIE BEB BAMA AANA AHIMA BBB BPP PPE EPI ELEE 


SNe 
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BEGIN 
g SPACE_TM(1); 
KERNEC_CALL(RESTORE_ACCESS); 
495 7% ERR_EXTT(SS$_BEGOFFILE); 
4 75 END; 
49 7 
498 7 IF .T™™ EQL 0 


KERNEC CALL(R sioer ACCESS); 


Ce er Pe Per Br Per er Per Ser Der Bert 


If _.STATUS AND “yun EQL SS$_ENDOF TAPE 
BEGIN 


k 8 
16-Sep-1984 31:54 AX-11 Bliss-32 V4.0-74 Page 13 
18-808- 1382 %§ 46:49 MTAACP.SRCIJREWSPC.B32; . (5) 
; 499 78 4 THEN 
3 : 7 2 ™ = 3; 
; ; 4 IF .1 GEQ 2 
3 ¢ 4 THEN 
; & SETUP_END(=(.TM = 1)); 
; 5 4 4 
: 88 é END; 
; 508 WHILE 1 
; 509 3 0 
; 9 2 BEGIN ! beginning of backspace loop 
: 51 891 4 LOCAL 
; 8 96 “ FID, 
; 14 95 4 SEQ, 
3 1? 3¢ ? VOL; 
3 sf 0896 4 IF _SPACE(~( BLOCKS) 
; 319 0898 4 EXITLOOP; 
3 : 1 0900 2 USER_STATUS<16, 16> = .USER_STATUS<16, 16> + .IO_STATUS<16, 16> = 1; 
H § 090¢ 4 calc number remaining to space 
3 5 Bone 4 BLOCKS = .BLOCKS - shee STATUS<16, 16> + 1; 
; 6 905 4 FID = . CURRENT_ VCBCVCBSL _CUR_FID 
: i 443 ? SEQ = .CURRENT_VCB VCBSU~ CUR- SEO]; 
: 529 $908 4 IF .SEQ EQL 1 
; 3 34144 2 THEN ! is tape positioned at beginning of file? 
; 0911 BEGIN 
; 338 0912 3 
; $e ; ? 5 space to beginning of data to avoid blocking virtual 10 
; ie : ; SPACE_TM(1); 
; g 4 
F} 9 4 
: 0 4 
3 & 
; 4 
; é 
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09 L¢ 
38 09 ERR EXTT( sss. GOFFILE); 
39 09 END? 
40 09 
‘ a9 : previous volume number 
rk 88 § VOL = ey _VCBCVCBSB_CUR_RVN] - 
* , ? MOUNT_VOL(.VOL> SF IELDMASK (MOUSV 7 BLCHECK)); 
re 925 
4 9 § LOCAL 
+8 9 STATUS: 
50 9 § STATUS = + at ee Se 518 =ftgy Nel I10$_SENSECHAR OR IOSM_CLSEREXCP, 
: 3 0 10_STATUS, 0,0,0,6,0,070,0); 
i : 
5 9 
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REWSP 1b-se -1984 02:31:54 AX-11 Bliss-32 V4.0-74 P 4 Rw 
$650 1 =30071 382 95:32:25 MIAACPCSREIREGSEC b3e04 — (33 vol 
: $ 935 SPACE_TM(-3); : 
; 9 § SPACE-TM(1): ; 
3 8 9 SETUP-AT_END(); 
; 23 3 § 6 KERNEC CALL (FORMAT_F1D, CURRENT_VCBCVCBS$L_CUR_F ID); 
; 561 940 : ELSE 
; 6¢ 941 6 BEGIN 
; 56 ae a FID<16, 16> = .SEQ = 1; 
: 564 943 6 POSIT ION_BY FID(.FID, .VOL); 
; 565 944 6 ™™ = 2 =~. CORRENT_VCBLVCBSB_.1M); 
; 66 945 6 SPACE_TM(.TM) : 
; 56 946 SETUP-AT_END(); 
; 568 94 END; 
BBY a0 
: 3) 0380 ; END; ! end of while loop 
: 578 boes END; ! end of forward and backward space 
; 575 0954 USER_STATUS<16, 16> = .USER_STATUS<16, 16> + .IO0_STATUS<16, 16>; 
; 576 0955 KERNEL_CALL(RESTORE_ACCESS) : 
: 577 0956 1 END; 
07FC 00000 ENTRY SPACE IN_FILE, Save R2,R3,R4,R5,R6,R7,R8,- ; 0707 
5A 00006 CF 9€ 9000 MOVAB RESTORE_ACCESS, R10 : 
59 00006 CF 9E 0000 MOVAB soOH : 
58 00006 CF 9E 0000C MOVAB 10 STATUS, R8 : 
57 00006 CF 9€ 00011 MOVAB M, R ; 
56 000000006 SF 9E 06016 MOV aNSYSSCMKRNL, R6 ; 
5E 04 C2 00010 SUBL : 
00006 CF D5 00020 TSTL | CURRENT_WCB : 0758 
04 12 00024 BNEG 5 F 
OOAC 8F BF 00026 CH #172 : 0760 
6E 00006 CF D0 O2A 1$ MOVL §_LOCAL_F1B+24, BLOCKS : 0762 
50 f DO 0002F MOVL BLOCKS, RO > 0764 
14 00032 BGTR ; 
O0BF 31 0 BRW 15$ : 
02. A 83 7 2% TSTW : OCKS+2 : 0768 
9 4 A BEQL 3 
BF C CHMU #20 : 0770 
50 00006 CF D9 3$ MOVL CURRENT _WCB, RO : 0775 
02 0B AO E 4 BLBS (RO), ~4$ : 
14 BF 4 CHMU #20 : 0777 
2E AB fF 49 4$ ist 46(CURRENT_VCB) : 0782 
31524448 8F 00 89 : CMPL HDR1, #827475016 + 0784 
. i BNEQ $ 3 
1 oD PUSHL #1 : 0786 
7 1 fF A CALLS #1, SPACE_TM ; 
1 2— «AB ? D 5$ CMPB = 46(CURRENT_VCB), #1 ; 0788 
1D 6 BEQL 10$ ; 
02 2E AB 91 0006 CMPB = 46 (CURRENT_VCB), #2 : 0792 
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¥ 5 - lLiss-32 V4.0-74 
19-8 gen 1382 95:33 23 MT AMCP SRE TRE USEC O35, 

REWSP 1o-$e0-1 : 

yeh 67 Qt FB 1 CALLS stepfPace™ 

E 04 001 L =( | 

wet Bt: Chics ; var ETE AML 

- > EP 801 CHMU W3h68" ; 

0938 8F BF 001 CHAU #2 | 

3 Borge 708 BNEQ 21S ; 

; 124 MOVL $3° ™ ; 

; p 21$: CMPL TM, #2 ; 

85 D1 00144 21S: cue TH : 

8 oF 129 PUSHAB =1(TM) ; 

Fe Be Pe Bote MNEGL (SP), (SP) ; 

6f gf SE Borer g CALLS #1, §SETUP_END ; 

os 2 CE 001 %6 $¢§ MNEGL BLOCKS, -TSP) 

4 FEE bole? CALLS #1, SPACE 

00006 ff i Ce : 

OF gt bolas TATUS+2, RO ; 

ee Coe eee : 

ee oe eee : 

28 a4 B14 MOVZWL 10. sta At 

ae ee =. a 80198 SUBL3 RO; BLOC ; 

3 8 Se O8 MOVAB 1(RO), BLOCKS ; 

; e 7 BB 80186 MOVL (CURRENT VCB), FID 

5 $6 OMB 3 Sib MOVZWL 38 CURRENT “vCB), SEQ ; 

54 26 «=6AB 3C (00184 MOVZUL 38(CURR : 

a ve rin 2 

gb eB Hy space : 

val CLRL = ; 

E 04 00192 is ; 

ia 03 ee 00198 Carts 33 MO TEST RKANL 

” 0198 CHMU ae 

53 0938 Ag oh 00198 25$: NOV ZBL 47 (CURRENT_VCB : 
0G coe yee Pos 

00006 CF 02 FB OO1A7 CALLS 2, : 

iM | HAR 2 

7¢ 001B cLRQ = : 

re 7€ 001B2 CLR = (SP) : 

3 Be 186 MOVZWL Re 39, -(SP) ; 

a $5086 f bb 186 PUSHL 10_ CHANNEL 
10 oe ae po 

siete 29 6 eS if6 PAPE O status. #2168 ; 
878 $F DI 1¢ CPL } ' ce 

ane e Ooip MNEGL #3, -(SP) ; 
z fe Boib CALLS “. SPACE_T™ | os 

6) 1 FB 00107 CALLS ; 
1 DD OO1DA PUSHL ; on 
6? ) fe ib CALLS if SETUPCAT END t $88 

ws 24 AB OF OO1E4 PUSHAB 3 CURREN 

01 DD O01E7 


] 
REWSPC 16-Sep-1984 02:31:54 — VAX=11_Bliss-32_V4.0-74 P 7 
yO42060 12-808-1 3b 6: 46:49 YT AACPS SRCIREWSPC. g3504 ee (35 v04 
SE DD OO1E9 PUSHL SP ; 
00006 CF P pie PUSHAB FORMAT_F : 
66 4 8 O1EF CALLS #4 SYSSCRKRHL : 
50 FF ra 5 SEE 26$ SCVAB tina) : O325 
55 10 10 20 5 O1F8 INSV 0, ib, o FID : 
53 DD OO1FD PUSHL vol + 0943 
55 DD OO1FF PUSHL FID ; 
00006 cr 02 FB 00201 ALLS POSITION_BY_ FAD : 
: 2E AB 9A 00206 MOV ZBL 46 (CURRENT Tt_VtB)> + 0944 
52 0 52 C3 OO20A SUBL3_ TM, #2, T : 
3 bd 90 0 PUSHL 1M ' 0945 
67 1 FB 0021 CALLS Hi, SPACE_™M : 
0000v CF 00 FB 0021 CALLS SETUP~AT_END + 0946 
FF39 31 00218 27%:  BRW 5 + 0887 
00006 CF 02 4&8 AO 0021B 28$:  ADDW2 [0 STATUS+2, USER_STATUS+2 + 0954 
7E D4 00221 CLRL. = = (SP) + 0955 
4400 8F BB 00 ; PUSHR #*M<R10 : 
66 03 FB 00 CALLS #3, OY SSERXRNL : 
04 0022A RET F 


; Routine Size: 555 bytes, Routine Base: SCODE$ + 0109 
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1b-se 1984 02:31:54 AX-11 Bliss-32 V4.0-74 Page 18) 
12-88-1382 8 ehi29 EW TAACP’ Se REUshe o3004 ’ (6) | 
:; 580 958 1 ROUTINE SETUP_AT_END : COMMON_CALL NOVALUE = : 
3 3B) $989 1 : 
; B 960 1 !+4+ : 
; oe 961 1! : 
3 84 306 1 ! FUNCTIONAL DESCRIPTION: ‘ 
; 585 965 1! This routine makes the current file section current ; 
; 2p6 boee } and positions at end of this file section's data : 
; 588 0966 1 ' CALLING SEQUENCE: ; 
; 589 0967 1 SETUP_AT_END() : 
; 590 0968 1! : 
; 23) 8? 9 1. ! INPUT PARAMETERS: : 
; 4 970 1! none ; 
: 59 0971 1! 
3; 594 0972 1 ! IMPLICIT INPUTS: 
; 595 0975 1! none 
; 596 0974 1! 
; 597 0975 1 ! OUTPUT PARAMETERS: 
; 598 0976 i! none 
; 599 0977 1! 
3 0 0978 1°! IMPLICIT OUTPUTS: 
; 601 0979 1! file section made current 
; 60 0980 1! start record of data section calculated 
; 60 0981 1! 
: 098 1 ! ROUTINE VALUE: 
; 605 0983 1! none 
; 606 0984 1! 
: 607 0985 1 | SIDE EFFECTS: | 
; 608 0986 1! none 
; 609 0987 1! 
; 610 0988 1 !-- 
3; 6611 0989 1 
3 ole 0990 2 BEGIN 
: 61 0991 2 
3; 614 4444 2 EXTERNAL REGISTER 
3 615 0993 2 COMMON_REG; 
; 616 0994 2 
; 617 0995 2 IF NOT READ_BLOCK(.HDR1, ANSI_LBLSZ) 
; 618 0996 § 
3 ol? 94.44 ERR_EXIT(SS$_TAPEPOSLOST); 
E e3t 4444 IF .HDRICEO1$L_EOILID] NEQ ‘EOV1' 
; 638 1001 ERR_EXIT(SS$_TAPEPOSLOST); 
: 624 1On6 
; 625 1003 2 — SETUP_END(-1); 
; 626 1004 1 END; | 
0000 00000 SETUP_AT_END: | 
«WORD Saye nothing ; 0958 
7E 50 8F 9A 00002 MOVZBL # (SP) 3; 0995 
00006 cf DD 00006 PUSHL HDR{ : 
0000G CF 2 FB OOOOA CALLS #2, READ_BLOCK 3 


a 


aD 
REWSPC 15 “Sep 2:31:54 AX-11 Bliss-32 V4.0-742 
y542050 14-Sep-1 71982 95:33 749 MTAACP..SRCIJREWSPC.832;1 
04 —8 F BLBS RO, 1$ 
0224 F BF O012 CHMU Reig 
31564F45 8F 0G OF o 16 1$: CMPL @HDR1, 4827739973 
1 Bait BEQL $ 
0224 F BF 00021 CHMU #548 
7E CE 00025 2$: MNEGL #1, =(SP) 
FD43—sCF 01 FB 00028 CALLS #1, SETUP_END 
04 0002D RET 
; Routine Size: 46 bytes, Routine Base: S$CODES + 0334 
; 627 1005 1 END 
3 os8 1006 
; 629 1007 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: S$CODES 866 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
2 ee ae ere Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; -$255$DUA28: CSYSLIBILIB.L32;1 18619 28 0 1000 60:01.9 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:REWSPC/OBJ=OBJ$:REWSPC MSRC$:REWSPC/UPDATE=(ENHS$:REWSPC) 
3; Size: 866 ode ° + 0 data bytes 
; Run Time: : 
5 t+): rtaee nt 37. 3 
; Lines/CPU M 
: bones rtpa-nint 170 i 
3 197 pages 
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